Реферат: Программирование. Контрольная работа

Составьте программу, которая запрашивает две строки текста и определяет включает

ли первая строка текст введённый во вторую строку.

Текст программы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type

TForm1 = class(TForm)

private

public

end;

var

cut,text1,text2:shortstring;

x,t1,t2: smallint;

Form1: TForm1;

implementation

label fin;

begin

write('Vvedite 1-u stroku texta:');

readln(text1);

write('Vvedite 2-u stroku texta:');

readln(text2);

t1:=length(text1);t2:=length(text2);

if t1<t2 then

begin

writeln('2 stroka > 1-oy, chto ne dopustimo');

goto fin;end;

for x:=1 to t1-t2+1 do